home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / basic-ahls (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  346b  |  17 lines
  1. 10 REM AHL'S SIMPLE BENCHMARK
  2. 20 TS=TI: POKE53265,11: REM BLANK SCREEN
  3. 30 R=0:S=0
  4. 40 FOR N=1 TO 100: A=N
  5. 50 FOR I=1 TO 10
  6. 60 A=SQR(A): R=R+RND(1)
  7. 70 NEXT I
  8. 80 FOR I=1 TO 10
  9. 90 A=A^2: R=R+RND(1)
  10. 100 NEXT I
  11. 110 S=S+A: NEXT N
  12. 120 POKE53265,27: REM TURN SCREEN ON
  13. 130 PRINT" ACCURACY  ",ABS(1010-S/5)
  14. 140 PRINT" RANDOM    ",ABS(1000-R)
  15. 150 PRINT"TIME IN SEC",INT((TI-TS)*(100/60))/100
  16. 160 END
  17.